IDENTIFICATION 

Product Code: Maindec 08-D1GB-D 

Product Nome: PDP-8, 81, 8S Extended Memory Control 

Date Created: May 5, 1968 

Maintainer: Diagnostics Group 



Abstract 

This program tests the Extended Memory Control logic for proper operation. 
It may be used with a PDP-8, 81, or 8S equipped with a minimum of 4K of 
extended memory. The program exercises and tests the control lOT's; the 
ability to reference all fields from field 0; program interrupt and interrupt 
inhibit; auto-indexing in each field, and a special tesr for the PDP-81 which 
tests the presence of a false memory pulse when a non-existent memory field 
is referenced. 

Errors encountered during running will result in a program halt. The halt 
locations are labeled, and the error may be identified by referencing the pro- 
gram listing or table of error halts. 



2, Requirements 

2.1 Equipment 



A standard PDP-8, 81 or 8S equipped with an Extended Memory Control, 
and at least 4K of extended memory. 



2 . 2 Storage 



The program requires 1726(8) locations of code memory. The program mi.-st 
reside in memory field only. 

2.3 Preliminary Programs 

All programs for o basic PDP-8, 81 or 8S must have been previously run 
successfully. 

3o Loading Procedure 

3.1 Method 

The program must be loaded with the Binary loader. 

a. Turn off the Te<^etype. reader. 

b. Set the SWITCH REGISTER to 7777. 

c. Press LOAD ADDRESS, and then START. 

d. Place the program tape in the reader and turn on the reader. 

e. When the program has been loaded, stop the computer, turn off the 
reader, and remove the tape. 
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4. Starting Procedure 

4.1 Starting Addresses 

The starting address is 0200(8). 

4.2 Control Switch Settings 

SR 8 must be on a 1 if a PDP-8i is being used. Otherwise, on a for a 
PDP-8 or 8S. 

SR 9, 10 and 1 1 must contain an octal value equal to the number of 
EXTENDED memory fields available (1 to 7 octal). Note that field is 
not to be included in this value. 

4.3 Operator Action 

With the program in memory, set the SWITCH REGISTER to 0200 octal. 

Press LOAD ADDRESS. 

Set SR 8 to a 1 if a PDP-81 is being used. Otherwise, set SR 8 to a 0. 

Place the octal number of EXTENDED memory fields available in SR 9, 
I© and 1 1 . This value may vary from 1 to 7 only. 

Press START. 

The program will run until an error is detected, or stopped by the operator. 

The TTY bell is rung once after one complete pass of the program. 

5. Operating Procedure 

See section 4.2 

5.2 Subroutine Abstracts 

Refer to the program listing for descriptions of each test, and the method 
of testing. 

5.3 Operator Action 

See section 4.3 
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6. Errors 

60 1 Error Halts and Description 
Table of Error Halts 
C (MA) Tag 



206 
217 
234 
245 
262 
273 
310 
321 

341 

351 

360 

410 

417 

427 

436 

452 

4^ ^61 



Description 



CDF and RDF Tests 



E 1 
E2 
E3 
E4 
E5 
E6 
E7 
E8 



CDF or RDF fa 
CDF 7 or RDF fa 
CDF 1 or RDF fa 
CDF 2 or RDF fa 
CDF 3 or RDF fa 
CDF 4 or RDF fa 
CDF 5 or RDF fa 
CDF 6 or RDF fa 



led. 
led. 
led. 
led. 
led. 
led. 
led. 
led. 



DF, IB and SF Tests 



E9 
E 10 
E II 
E 12 
E 13 
E 14 
E 15 
E 16 
E 17 



RIB or ION failed. 

DF not clearea> or no interrupt., 

RIB or SF failed. (DF 1) 

DF not cleared, or no interrupt. 

RIB or SF failed. (DF 2) 

DF not cleared, or no interrupt. 

RIB or SF failed. (DF 3) 

DF not cleared, or no interrupt. 

RIB or SF failed. (DF 4) 
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471 E 18 DF not cleared or no interrupt. 

500 E 19 RIB or SF failed. (DF 5) 

514 E 20 DF not cleared, or no interrupt. 

523 E21 RIB or SF failed. (DF 6) 

533 E 22 DF not cleared, or no interrupt. 

542 E23 RIB or SF failed. (DF 7) 

DCAJand TAD I Tests 

653 E 24 DCA I or TAD I to an extended field failed. 

TheDF indicators equal the current field 
under test. The AC contains the data as 
read from location 7000 of the extended field. 
The halt occurred due to the data read and 
the current data field not being equal. Eaah 
extended field should contain its field number 
in location 7000. 

GIF, Band SF Tests 

Program interrupt is enabled for these tests. A GIF is issued, followed by an 
ION and a JMP. The IF should always equal 0, because of the interrupt occurring 
after the JMP instruction. A HLT is in location 1 of each intended field in case 
the IF does get set. The TTY flag is used for interrupts. 

710 E 25 Nd interrupt, or inhibit interrupt failed. 

717 E26 GIFl. The IB or SF failed. TheAG=G(IB). 

733 E 27 No interrupt or inhibit interrupt failed. 

742 E28 GIF 2. The IB or SF failed. The AG = G(IB). 

756 E 29 No interrupt or inhibit interrupt failed. 

765 E 30 GiF 3. The IB or SF failed. The AG = G(IB). 

1004 E 9^3i. No interrupt, or inhibit interrupt failed. 

1013 E 32 GIF 4. The IB or SF failed. TheAG=G(IB). 
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1027 E 33 No interrupt, or inhibit interrupt failed. 

1036 E34 GIF 5. The IB or SF failed. TheAC=C(IB). 

1052 E 35 No interrupt, or inhibit interrupt failed. 

1061 E36 GIF 6. The IB or SF failed. TheAC=C(IB). 

1075 E 37 No interrupt, or inhibit interrupt failed. 

1104 E38 GIF 7. The IB or SF failed. The AG = C(IB). 

Interrupt Inhibit Test 

A subroutine is placed in each extended field to ensure that program interrupt 
is inhibited after a GlFIOT, gnd is enabled after a JMP instruction. The routine 
is in one field at a time; the contents of all other extended fields will equal 0000, 
The routine is described on the program listing as the "B< tended Field Test Routine, " 
and is tagged EXFLD, 

The test routine is entered at locationn74 in the extended field. This location 
contains a GIF XX lOT, where )^X equals the extended field number. Location 
1175 contains an ION lOT. Locations 1176 to 7776 contain all O's. Location 
1777 contains a JMP I 12. The routine, therefore, issues a GIF, ION, and 
JMP I 12 sequence. Program interrupt should be inhibited until after the JMP I 12 
at location 7777 , An error halt occurs in field if an interrupt occurs between 
locations 1 176 and 7777 , Location 12 contains 1175 (E 40 in field 0), and will 
auto-index to 1176. 

1175 E 40 GIF or intermpt failed. The DF and IF should 

equal an extended field, 

1203 E 41 The DF was not cleared after the interrupt. 

All other functions worked properly, 

1221 E 42 RMF or SF failed. The SF register should have 

saved the extended field number after interrupt. 
The AG=G(I.B.)afteran RMF. 

^235 E 43 All functions worked, but the PG did not equal 

location E 40 + 1 after the Jrrterrupt in the extended 
field failed. The AG = contents of location 0, 
field 0. 

4 E 44 Location 4 in the extended field. The interrupt 

went to this field instead of field 0, or the 
JMP 112 at location 7777 was not executed. Also, 
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10 



E45 






make sure interrupt was enabled in location 
1175 in the extended field. 



Location 10 in the extended field. The 
JMP 1 12 at location T7T7 was not executed, 
or interrupt failed. 

No program interrupt occurred. Press CONTINUE 
to4ey again. 
-t-r:f 

Memory field 1 halt. An interrupt in field ^ 
was followed by a CIF lj2f lOT, and then an RMF. 
The RMF should have restored the IB to field j2f. 
The SF and IB were OR'd together, resulting in 
the IF being set to field 1, after the JMP instruction 
at location 1430. Restart from ]400 fo repeat the 
test. 



Auto-Index Test 

The subroutine labeled "Auto-Index Test" on the listing is placed in each extended 
field. Auto-index registers 10 through 17 in each field are tested. All of memory 
not occupied by the subroutine in set to 0, The error halts tagged E 46 through E 53 
will occur in the extended field if an auto-index register fails. The DF and IF 
indicators will display the current field being tested. 



+5g4l^r55 E46 

US^-t^^S E47 

VSee-iJ-^o E48 

^^Q&±S33 E49 

^^4BiS3a E 50 

4^49'l^^i E51 

}S461dr^^ E52 

fS^i^yr E53 



Index register 10 failed. 
Index register 11 failed. 
Index register 12 failed. 
Index register 13 failed. 
Index register 14 failed. 
Index register 15 failed. 
Index register 16 failed. 
Index register 17 failed. 



Non-Existent Memory Test 



This is the last test perfonned, and is included for PDP-81's only. The test makes 
sure that a false memory done pulse in generated when the DF is set to a non-existent 
memory field. If the PDP-81 being used is equipped with the maximum of 32 K of 
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code memory, the program automatically skips this test and restarts at location 200. 
SR 8 on a will cause the program to always skip this test. 

The test also makes certain that the correct data is deposited in the AC when a 
non-existent field is referenced. This data must always equal 0000 or 7777 octal, 
depending on the number of extended fields existing. For example, if the PDP-81 
is equipped with fields 0, 1, 2 and 3, any reference with a TAD I to fields 4 through 
7 should result with 7777 octal in the AC. If equipped with fields 0, 1 and 2, a 
TAD I to field 3 should result with 0000 octal in the AC, and referencing 4 through 
7 will result with 7777 octal in the AC. In other words, referencing the lowest 
order non-existent field, when the total number available is add, will result with 
0000 in the AC. Referencing all other non-existent fields will result with 7777 in 
the AC. When the total number available is even, referencing any non-existent field 
will result with 7777 in the AC. 

The only legal halts in this test, are at locations 1700 and 1725. If the computer 
halts at any other location, the false memory done pulse probably was not generated. 

The false memory done pulse is not generated when a C IF to a non-existent field is 
attempted. 



1700 



E54 



All O's should have been deposited 
in the AC, or an existing field 
was referenced. Make sure the 
proper value is in SR 9-H. The 
number of extended fields available 
must be in SR 9-11 , 



1725 



E57 



All V% should have been deposited 
in the AC, or an existing field was 
referenced. Make sure the proper 
value is in SR 9-11 . 



6.2 Error Recovery 



Press CONTINUE to repeat the failing test. Place a NOP in the error 
halt location to loop on a failing test. Restart from 1400 after a halt at 
7000 in field 1 . 



7. Restrictions 



7.1 Starting Restrictions 



None 
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7.2 Operating Restrictions 

The number of extended memory fields available must be in SR 9-1 1 
before starting from location 200, 

8, Miscellaneous 
8,1 Execution Time 

Running time is dependent on the amount of extended memory for 
testing, and on whether the processor being used is a PDP-8, 81 or 8S» 
The TTY bell will ring once for each pass ot the program, 

9, Progrcm Description 

The program exercises all lOT's associated with the Extended 
Memory Control logic, plus the ability to reference extended fields 
from field 0, and vice-versa. Each test is looped 4096 times before 
initiating the next test, A switch option is provided to skip or 
execute a non-existent memory test for the POP -81, 

The individual test routines and error halts are commented on the 
program listing as an aid to trouble-shooting. Section 6 contains a 
Table of Error Halts which also may be referenced. 

10, Listing 
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6?01 




6202 




6214 




6224 




6244 




6234 




0^01 


0^01 


5001 


0-^0? 


0002 


0003 


0003 



002t3 



w '' ? n 


54^0 


t'^^^l 


200 v:5 


0:^22 


1742 


0^23 


1734 


0*^24 


Ul2 


0^''25 


1321 


0^.''^26 


1432 


t'V.^2; 


i1 


'^:'3f 


0il00 


0^31 


0000 


ti;"3? 


0000 


0'\5.^ 


00 00 


ti034 


000 


0^35 


1174 


0*^36 


1175 


/i''37 


7402 


1'' 4 ^ 


6201 


(^041 


6202 


0(^4? 


0703 


? 4 3 


1316 


0^-44 


0001 


0^43 


0007 


004A 


0010 


0047 


7777 


005^ 


7000 


0^?51. 


7707 


0^-5? 


7767 


0!^b3 


7757 


0^54 


7747 


0?b5 


7737 


0'?56 


7727 


0057 


7717 



/ 

/pnp-8, 
/Or fXT 

/IF LIS I 

/START 

/ 

/CONSTA 
/ 

COF =620 

CIF=620 

R0F=621 

RIF=622 

RMr=624 

RIH=623 

♦1 

/ 



81 EXTENOED MEMORY CONTROL TEST, PLACE NUMBER 
c^QzO 4K plg-LDS AVAlLAB.LjT IN SR9 TO 11, (UP TO 7) 
NG an 8I1 PLACE SR8 ON A'I, OTHERWISE LEAVE 0. 
PROGRAM AT 200 

NTS 



/ 

/ 

J^PI0, 

XT^ L(i. 
XSTKS. 

X A * ' T . 
i,.nnPi 

NIJF , 

STKS, 

OaT, 

fJQSTAKi 

NrjFLO. 

Kt40M, 

<t40, 

KHLT, 

KC'^F. 

K C I F . 

KC^l, 

XF"i, 

Kl, 

K7, 

K 1 ^S 

K7777. 

K7J"00» 

K7707* 

K/767» 

K7757. 

K7747, 

K7737* 

K7727, 

K7717. 



JMP 1 

0002 

01^03 



JMP I 

IS2 

TFLG 

^4STKS 

TRMF 

TWANS 

TAUTO 









E4W-1 

E40 

HUT 

6201 

6202 

CIFl-1 

EXFD 

1 

7 

10 

7777 

7000 

7707 

7767 

7757 

7747 

7737 

7727 

7717 



0^ 


^6"^ 


7776 


(^; 


'■ 6 1, 


7775 


t^: 


■^6? 


7/7'4 


0'- 


'"6 3 


7773 


0i 


'64 


7772 


0' 


^65 


7771 


0- 


^^A 


7770 


r' '■ 


;^6? 


0i''7l 



K7776. 


7 7 76 


K7775, 


7775 


K7774, 


r/fA, 


K7773. 


7773 


K777?, 


77/2 


K7771. 


7771 


K7 770, 


im 


D fi I M T 1 


,*2 
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0^7^ 


0t^7l 


0"71 


7766 


0^-7? 


775^ 


00?:^ 


7744 


n y 4 


7733 


0'''7 5 


77?2 


7\-^l^ 


7711 


0i'^7 7 


7 7 00 


010P 


1171 


'/5 1 3 1 


1172 


tilfl? 


1302 


0103 


5402 


1. 4 


12CH^ 


0135 


33;p0 


01 l^'S 


5'5r7 


1, 7 


1427 


?llf^ 


1-^22 


-vUl 


1400 



K/=^, 


.+1 


K7766, 


7 7 66 




Jlbb 


K7744, 


7744 




7733 




7722 




//ll 




7 7ia^ 


xr^^F, 


STUF 


XT'Tl. 


STOF+l 


KxFLD, 


EXFLD 


KJ:-1P, 


JMP I 


KxlTR, 


fcMTLR 


K2^-^ 


2iJ 


JMP2, 


JMP I 


KFL O0» 


inHN 


KPTN, 


1 4 b A •»■ if 


XF IB, 


SFIB 



KFLD0 
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0200 



020n 


7?00 


1^201 


3i^27 


2C'^2 


62^1 


^^203 


6214 


20 4 


7450 


^??b 


^^211 


^^20^^ 


7402 


ti 2 i^ 7 


7200 


(^2in 


5232 


0211 


1051 


K212 


6271 


^215 


62l4 


0214 


7f540 


t;21'7 


745^5 


021^ 


5222 


0217 


7402 


i^?2^ 


7200 


^'?21 


5211 


? 2 ^ 


2*^2'^ 


^^?23 


5202 


0224 


7?3i? 


022^^ 


3^2 7 


22*^ 


l!^52 


■??27 


6211 


l,r^23!^ 


6214 


0231 


70 40 


023? 


745^1 


'/f?ii 


5237 


^234 


7402 


i'?35 


720W 


0236 


5226 


^/)237 


1053 


K!24(^ 


6221 


0241 


6214 


0242 


7f!40 


0243 


7453 


0244 


525^ 



/TtST 

/ 


CDF AMD RDF 














/ 










HeniN, 


. CLA 








/ 


OCA 


LOOP 




/LOOP COUNTER 


CDF 


00 


/DF 






ROF 










SNA 




/SHOULD 


NOT SKIP 




JMP 


OF 7 






El, 


HLT 
CLA 




/ERROR, 


CDF OR RDF FAILED 


J 


J,vtP 


DF0 


/REPEAT 




/ 

nF7. 


TAD 


K77a7 




/7707 




COF 


70 


/DF 7 






RDF 










CMA 




/AC = 




SNA 




/SHOULD 


NOT SKIP 




JMP 


OKI 






F2. 


HLT 
CLA 




/CDF OR 


HDF FAILED 


/ 


JMP 


DF7 






IS? 


LOOP 




/CHECK DONE 


/ 


JMP 


OF0 






CLA 








/ 
HFl, 


DCA 


LOOP 




/LOOP f^OUNVER 


TAD 


K7767 




/7767 




CDF 


li3 


/DF 10 






RDF 










CMA 




/AC = 






SNA 










JMP 


DF2 






^3, 


HLT 




/CDFl OR RDF FAILED 




CLA 










JMP 


QFi 






/ 

nr2, 


TAD 


<7757 




/7757 




CDF 


20 


/DF2 






RDF 










CMA 




/ACs0 






SNA 










JMP 


0K2 
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02 4'? 


7402 


024^ 


7200 


0247 


5237 


Z25'^ 


2027 


^P"?! 


5226 


02*32 


7200 


'i^^'^Z 


3027 


i^?54 


1054 


0255 


0231 


02^6 


62i4 


0257 


7040 


(^26^ 


7450 


0261 


5265 


0262 


7402 


^l?63 


7200 


P 6 4 


5254 


v)-?bb 


1-^55 


1^266 


6241 


26 7 


62l4 


? ? 7 (•" 


7040 


■7>?7\ 


7450 


027? 


5276 


t'^27 3 


7402 


02 74 


72^50 


0P7=i 


5265 


0?76 


202^ 


f/2 77 


5254 


,X (?l 


7?00 


i'^n 


302 7 


0"??t? 


1056 


0;i0;^ 


6251 


0:^04 


62l4 


030S 


7040 


0.^06 


7450 


3.:s07 


5313 


0.un 


7402 


0511 


720'2) 


0312 


5302 


03i3 


1057 


0314 


6261 


0315 


6214 


316 


7040 


0317 


7450 


03 2!^ 


5324 



E4. 


HLT 
CLA 






JMP 


DF2 


/ 






OK 2, 


IS2 


LOOP 




JMP 


OFl 




CLA 






. DCA 


LOOP 


/ 






r3F3, 


TAO 


K7747 




COF 


30 




ROF 






CHA 






SNA 






JMP 


DF4 


|-'5, 


HLT 
CLA 






JMP 


DF3 


/ 






DF4, 


TAD 


K7737 




CDF 


40 




ROF 






CMA 






SMA 






JMP 


0K3 


16, 


HLT 
CLA 






JMP 


0F4 


/ 






OK <, 


IS^ 


LOOP 




JMP 


0F3 


/ 


CLA 






DCA 


LOOP 


/ 






DF5, 


TAD 


K7727 




COF 


50 




ROF 






CMA 






SiNA 






JMP 


DF6 


E7. 


HLT 
CLA 






JMP 


DF5 


/ 






aF6, 


TAO 


K77i7 




CDF 


60 




RUF 






CMA 






SNA 






JMP 


0K4 



/CDF 2 OR RDF FAILED 
/DONE IF SKIP 

/7747 

/DF 3 

/AC = 

/CDF 3 OR RDF FAILED 

/7737 

/DF 4 

/AC = 

/CDF 4 OR PDF FAILED 

/DONE IF SKIP 



/7727 

/DF5 

/AC = 

/CDF 5 OR PDF FAILED, 



/77h7 



/DF 6 
/AC = 



v5 3 2 1 7 4 2 . 
t^3^? I7'b^ 
0323 53i3 



f';3 24 



5302 



^326 


6?31 


3 27 


102^ 


033:^ 


3^P!1 


0331 


3.^?7 


:'?3 3? 


^5^41 


■i^ 3 3 3 


4422 


'.^334 


^iA'J\l 


0^3- 


7? 0-3 


^^J'S 


6?34 


^)337 


745a 


/I '^ 4 ■ 1 


5343 


;.i34i 


7402 


0342 


5334 


?^4^ 


6211 


3 4 4 


6001 


.^ 4 =< 


7 20 


3 4 f) 


62l4 


v^^4 7 


7450 


1^3 5^ 


5353 


vl35l 


7402 


i^352 


5343 


3 b ^ 


1060 


vi35 4 


6234 


355 


7 ;^ 4 


?^35*. 


745M 


0357 


5362 


?.^f>''^ 


74:^2 


i^ 3 6 1 


534 3 


036? 


2^27 


f/363 


5334 


03b4 


576^ 


■^3 65 


0400 



E«, 


HLT 
CLA 




/CDF 6 OR ROF FAILED 




JHP 


DF6 




/ 


IS?? 


LOOP 


/DONE WHEN SKIP 




JMP 


OF 5 




/ 


rrsT INTERRUPT 


BUFFER ( IB) BITS 9-11 WITH 


/n(IB, 


•PI IS 


ENABLED. 


TELEPRINTER FLAG IS 


/.JSELI 


FOR INTERRUPT, 




/ 


COF 


00 


/UF^3 




TAD 


JMPI0 


/JMP H'rJMP I '^ 




DCA 


1 


/C(1)=JMP I 




DC A 


LOOP 






rsF 




/TEST TTY FLAG 


/ 


JMS 


I XTFlG 


/SET FLAG 


ION 




/ENABLE PI 




CLA 








^IB 




/READ SF 




SNA 








JMP 


IBl 




f:9. 


klt 




/RIB FAILEO 


/ 

I i5 .1 , 


JMP 


180 




CUF 


10 


/UF 1 




lOM 








CLA 








RQF 




/DV SHOULD BE /'• AFTER A PI 




SNA 








JMP 


,*3 




Fl % 


HLT 








JMP 


IHl 


/DF NOT ClEaREH, QR NO FI 


/ 


TAD 


K7776 






RIB 




/READ SF 




CMA 




/AC = Ci 




SNA 








JMP 


nK5 




F-11. 


HLT 




/RIB OR SF FAILED 




JHP 


IBl 




n K. 5 , 


ISi 


LOOP 


/DONE ^HEN SKIP 




JMP 


IBS) 






JMP 


I .*1 






IB2- 


•2 
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04?)0 


040f1 


720i5 


0401 


3?527 


040^) 


6221 


fM03 


6001 


:'^4f?i4 


720'2 


f)40S 


6?l4 


0406 


7450 


i^'407 


5?l2 


1^411'' 


7432 


0411 


5? 02 


041? 


1061 


0413 


b234 


0414 


7'?A'^ 


?'Alb 


7450 


I'M 1 6 


5?2l 


PI417 


74'^2 


042'^ 


^202 


4^., 


6231 


042? 


6':^w'5l 


^423 


720a 


4 2 4 


62l4 


^42"^ 


745^5 


M42^ 


&?3i 


;?427 


740? 


4 S :■' 


■5221 


0431 


1^62 


04 3? 


6234 


ii433 


70 40 


f434 


7450 


?^65 


5240 


1^431^ 


74Z2 


04 3 7 


52?1 


{/•■AA'^ 


2??7 


0^141 


5202 


044? 


72^0 


0443 


3327 


0444 


6241 


044=i 


6001 


0446 


7200 


0447 


6214 


4 5^" 


7450 


0451 


5254 



*4.'10 





CLA 






DCA 


LOOP 


/ 






IH?, 


COF 
ION 
CLA 
RQF 
SNA 


20 


» 


JMP 


.*3 


fl?, 


HLT 






JMP 


IB2 


/ 








TAO 


K7775 




RIB 






CMA 






SNA 






JMP 


IB3 


Fl3, 


HLT 






JMP 


IB2 


/ 






H3, 


CDF 
ION 
CLA 
RQF 
SNA 


30 




JMP 


,*3 


FH, 


HLT 






JMP 


Ifei3 


/ 








TAD 


K 7 7 7 4 




RIH 






CMA 






SNA 






JMP 


nK6 


Fl'^, 


HLT 






JMP 


IB3 


/ 






Ok^, 


1S2 


LOOP 




JMP 


IB2 


/ 


CLA 






DCA 


LOOP 


/ 






IB4, 


CDF 
ION 
CLA 
RDF 
SNA 


40 




JMP 


.+3 



/UF 2 



/SMOULn BE AFTER PI 



/OF NOT CLEAREH, OR NO PI 



/AC=7777 

/ = 



/RIB OR SF FAILED 



/DF3 



/OF SHOULD BE CLEARED 



/DF NOT CLEARED 



/AC=7777 
/AC = 



/RIB OR SF FA H £0 



/DONE IF SKIP 



/OF 3 



/OF M^Sy BE 000 AFyER A PI 
/ERROR IF SKIP 
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045? 


7402 


045:^ 


5244 


^M54 


1063 


04b^ 


6234 


4b6 


7 '^41^ 


0457 


7450 


4 6 3 


5263 


0461 


74k'2 


^'46? 


5?44 


046:? 


6?5l 


0464 


6.^01 


4 6S 


7 2i3i^ 


3466 


6214 


0467 


74563 


047^ 


52/3 


0471 


7402 


k}47P 


5263 


^4 73^ 


1!-16 4 


04 74 


6234 


V^4 7S 


I'AA'l' 


t^476 


7450 


04 7 7 


53!^2 


0590 


7 4 02 


05';^1 


5263 


T (? ? 


25^27 


i^'se..? 


5244 


051M 


72^,0 


0S05 


3027 


05 06 


6261 


0507 


6^^ 01 


05lt^ 


72(^0 


0511 


6214 


051? 


745^ 


0'5i:? 


53t6 


5^514 


7402 


0515 


5306 



El^, 


HIT 






JMP 


IB4 


/ 


TAD 


K7773 




RIB 






CMA 






SNA 






. JMP 


IB5 


El7, 


HUT 




I 


JMP 


184 


/ 

m5, 


CDF 
lOM 
CLA 
RDF 
SNA 


50 




JMP 


,♦3 


F^lHf 


HIT 






JMP 


185 


/ 








TAD 


<7772 




RIB 






CMA 






SNA 






JMP 


0K7 


f^lQ, 


HIT 






JMP 


IB5 


/ 






D^'f , 


\Sl 


LOOP 




jMP 


lB4 


/ 


CLA 






UCA 


LOOP 


/ 






l-i6, 


CDF 
ION 
CLA 
RDF 
SNA 


60 




JMP 


,*3 


^-2:^> 


HLT 






JMP 


Irf6 



/DF NOT AFTER PI 



/AC=7773 



/AC=7777 

/AC = 



/RIB OR SF FAILEO 



/DF5 



/DF SHOULD=000 



/OF NOT ^ AFTER PI 



/AC= 777? 
7777 



/RIB OR SF FAILED 



/DONE IF AND SKIP 



/DF6 



/DF MUST=0 AFTER PI 



/OF NOT AFTER PI 
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0516 


1065 


0517 


6234 


m2^^ 


7040 


0521 


7450 


052? 


5325 


0523 


7402 


0524 


5306 


0525 


6271 


0526 


6001 


0527 


7200 


0530 


6214 


0531 


7450 


0532 


5335 


0533 


7402 


0534 


5325 


0535 


1066 


0536 


6234 


0537 


7040 


054v^ 


7450 


0541 


5344 


054? 


7402 


054^ 


5325 


0544 


20?7 


0545 


53i/!6 


0546 


5747 


0547 


0600 





TAD 


k;77i 


/,777l 




RIB 




/AC=7777 




CMA 








SNA 








JMP 


IB7 




£21, 


HLT 




/RIB OR SF FAILED 


/ 

IB7, 


JMP 


IB6 




CDF 


70 


/OF 7 




iON 








CLA 








«DF' 




/DF MUST = AFTER PI 




SMA 








JMP 


,+3 




E2?, 


HLt 




/DF NOj 


/ 


JMP 


IB7 




TAD 


K7770 






RIB 




/AC=7777 




CMA 








SNA 








JMP 


0K8 




t23, 


HLT 




/RIB OR SF FAILED 


/ 


JMP 


IB7 




0K8, 


iSf 


LOOP 


/DONE If 




JMP 


IB6 






JMP 


I ,+1 


/NEW PAGE 




600 
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W 6 ^' 



^ 6 ;■) '.^ 


3.-^27 


^6':^l 


44;?3 


0^0? 


7.-^01 


\t-^0?' 


3'^3» 


1^^.3 4 


1^41^ 


0A0=S 


i?4 6 


(^^?6 


yi'Dl 


6 '^^ 


6?i^l 


0^1 -^ 


l-'^3>^ 


06ii 


3 4 5k' 


0^1? 


2:^31 


;^^13 


741 i^ 


0'=>14 


^272 


i^6l5 


li'46 


i^'^l^ 


120/ 


f ' *> 1 "7 


-l-??J 


!;^*>2^ 


2''M' 


i/"^?i. 


b2?l 


t* ^ ^ ? 


4 4 ? 3 


i'^?;^ 


7 '^ 1 


/■'' ^ ? 4 


3 >" 3 v' 


■•^'^^^ 


1 :.:* 4 v^ 


'.'^2^ 


l!M6 


'1^21 


3?3'^ 


'/■^'S"'- 


6?i-'l 


i''^il 


l4'5i'J 


0'^3^ 


3 \«2 


v^ '^ 3 3 


i;^<2 


0634 


7 :"') 4 1 


0^3'7 


l-i3^ 


0'=>3 6 


76 4 k:^ 


i^'^37 


i??'?? 


k^ 6 4 :1 


2^^ 31 


0'>41 


^245 


64? 


2^^?7 


0'^4;? 


^201 


0644 


525^ 


64^ 


1^46 


0646 


123'' 


06 4 7 


32 3'^ 


.51 6 ^ f^ 


?yi'^- 


065>1 


b2'S'i' 


0652 


1?32 


;^.'^5 3 


74^?2 



#6-'0 

/ ,:nw 
/txTF 
/ C '^ N T 
/ 

[) r A I , 



TLST oc* I Anq tad I TO ALL STAcKS. NUMBER OF 

NIJED STACKS SHOULD BL IM SR9 TO 11. EACH STACK WILL 

AIN ITS DF# IN LOCATION 7(^00. 



DM D, 



/ 

T6 M . 



T ^- ^ a , 



/ 

F.24, 



iJCA LOOP 

JMS I XSTKS 
lAC 

DCA MOF 

TAD KCOF 

TAD K10 

jCA ,+i 
CDF 00 
TAD MUF 
OCA I K/00fci 
ISz' STKS 
SKP 

JMP TaOI 
TAD K10 
TAD DFLU 
UCA DFLU 
IS^ MUF 
JMP DFLU 



JMS 
lAC 
i)CA 
TAO 
TAD 
JCA 
CDF 
TAD 
DCA 
TAD 
CIA 
TAD 

'>2fA 

JMP 
13^ 
jMP 
\^i 
JMP 
JMP 
TAD 
V A D 
JCA 
IS2 
JMP 



I XSTKS 

MDF 
KCOF 
Kl/5 
.+1 

I K70iji^ 
f)Ar 

DAT 

Nijr 

CLA 
E24-1 
STKS 
.+4 

LOOP 
DCA I 
IBSF 

K10 

y f L D 

TFLU 

MDF 

TFLu 



0654 7220 



TAD DAT 
HLT 



CLA 



/HFAn SR 9-11 

/DF MUM8ER = 1 TO START 
/6201 

/OF 001 TO STAK-T WITH 

/WILL RE INCREMENJTED 

/UF# 

/PUT IM 70(^0 Of STACK 

/ALL STACKS WHEN ^ 

/TEST TAD I 

/INCR, CDF lOT 



/- 

/SR9=11 AGAIN 
/DF#=1 AGAIM 

/62ai 



/AC = DF Co^TE^JTS ^^^ 
/SAvF yEMP 

/2'S COMP 
/BETTER HE EQUAL 

/ERROR RATH 
/ALL WHE.M 

/DONE WHEN i3 

/NEXT TEST 

/CDF lOv + 10 



/DATA AS READ 

/ACsOATA READ. OF INDICATORS 
/EQUAL FIELD WHERE GOT DATA. 
/BOTH SHOULD BF EQUAL 
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1655 5230 



JMP TpLD 



4 / ."^ / 6 R 1 .1 ; .r; -^ , < ( 



PAGE 1^ 



'':.(■. shhulU al^^ays = ^0 si'mCe: a jmp o^ jms is ex- 

/"'•liTL) .'FTL'^ TH^ GIF IQT. T-(t. ST REHISTFR IS 

/'►s't.i --ITH THL ^Iri inr Afr-K THl T'Tf-RWuPT, 

^ ' '-!^ !.^". IS SLT A ML^ - U [. OCCUR A^ LOG, 1 

/ ^ : r<t f XTtNJDFU FILLu. 

/ ■■ 'M T ULL ■)CCU^^ AFTF^^ Tht Iu\; JQT 

'i^ li ivrtWHfuPT .jrciiRS, -^rrcy ,:n^^T. T' RLPtAT. 

■ ^ L'^CS . 1 , > T ,t = I -:- /j , t ■•; ' 
/ , -- i ... ^LSPLCTI VFL V . 



-'•.b^ 6 -' .: 1 

'^5 1 l^*?^' 
^^ 6 ? S ■ ■ ?' ? 



:.JF A^ 

'AD IS/«^ 

-CA 1 

IAl] JMRI^: 

^CA ? 

A hL^ I ^ 



SFT OF Tq ^/.0, 



/JMR I 



■t)S 



~ ^ 1 ^ 
•^ 7 A 

' (^ ! I- 



1 -■' 4 '' 






I -; V / 



. - M .-, f X b 

'AO KC;)F 

' Al] Kl.l 

- C A . + 1 

"■ l) F i » 

■ A:l <M| ' 

;L:A I Ki 

-, <; o 

. ■ -l ^' . + .^ 

TAi] HLtS 



^ :i START w I T M 
/<H|_T r 7 402 



■': 1 ' 



v' ^ ; 7 


^ ^ ,' 1 


:::' 7 ;. " 


'^'41 


,' '^ r ' 


u, U '1 P 


7. 7 7 -> 


6.-?/ 


,-7^,5 


4 4?3 


,'7:^4 


h?1.? 


;' J :.: s 


0' •! 


■ ; '■ ^, 


7 . / '/; 


^- ■' ''. 7 


p <;i .■ 


; ' 7 1 •' 


74;-,' 


."711 


n^,<4 


," ^ 1 P 


i.--^? 


i:7lT 


7^'^^ 


^^714 


7 6 c, / • 


?715 


53^? 


'ill h 


6?34 


717 


74.,^2 



vSF 

.JMS I kU 

^'JA _[rip 

JMS I XSTkS 
■■ IF 1 iil 

jriP . +1 

"LT 

• n^ 

■ A .; < 7 7 6 > 

:. MA 
s;>.A ci.A 

■MP ■ 1 K F i 
Kid 

HL T 



/■.^F' T"Y FLAG 
/RFAH qR 9-11 

/»• It i ■) 1 



/L-^Kf)-^, ^0 PJ f^R INHIBIT PT 
.h;; ^ -JN *-^p£; F^^O*' LUC . 3 



/i)K IF N,0 SKIP 



/I. p. ^R S.F, MILEu. C{AC) = C(IB) 



7 2''' 7?O0 
0721 53^^4 



CLA 

JKP CIFl 
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/REPEAT 
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^7^? 


?^"51 


^'U< 


b3?7 


■ ' V ;; 4 


^■■;:7 


/-'c- 


s :< ■:^ 3 


: 17^ 


':>4::j4 


.' '!2'' 


6 ? ? ? 


'/IS' 


^ /^ (•) 1. 


-■' '' i 1 


7 / 7 ^^ 


?■ .' < '.■> 


'5,53 3 


/'' S^' 


7 4.-^ 


/7.54 


o?34 


!-'ib 


i;'53 


/ ^^'> 


7^'4>! 


;' 7 ,w 


7^^^^ 


/ 7 4 r 


334? 


. ' 7 4 1 


6 ? 3 4 


f -^ 7 4 p 


7 4::.o 


i^7'i ^ 


7?P- 


i^ 7 4/1 


b3;^7 


,." /' 4 '^ 


2^^3l 


/74'> 


3 3b? 


^^'7 47 


c'-P^ 


;■ /t?'' 


3 3^.-3 


/791 


b4?4 


r.^7'7:> 


6?3? 


^'7^3 


6;H'1 


fr7b4 


7 ■'' 2! t! 


/■/^s 


S33 6 


v.lbh 


7 40? 


07b7 


6? ^5 4 


076^ 


1^^'-S4 


iZ/bl 


7iMi^ 


076? 


76K0 


0763 


3 3/^' 


0764 


6?34 


^'765 


740? 


V'lbf- 


7 ? '/) 


W76 7 


bib? 


?7 7'"i 


2t'n 


7 7 1 


bUb 


07 7? 


?^^?7 


^773 


53^3 


? 7 7 4 


34?4 


P775 


lti0? 



■■Kf 1. 


IS?^ 


STKS 




JMP 


CIFci 




IS^ 


LOOP 




JMP 


CIFl-i 




JMP 


I XRMF' 


/ 






■ • i ■ •■' J 


CIt 


?2^ 




lONi 






X ;_^, 3 






jHP 


,+1 




HLT 






- I H 






TAD 


K77i37 




r M A 






S i\i A 


CLA 




.iMP 


nKF2 




- X'i' 




F ? >■ . 


HLT 

;;la 






.; M P 


CIF2 


/ 






n^f ?, 


lb?* 


STKS 




JMP 


CIFj 




ISi? 


LUOP 




JMO 


CIFi-i 




JMP 


I XRMF 


/ 






'■ P 3 , 


GIF 
TOM 
:.0P 


30 




JiMP 


,♦1 


t ^' '• , 








"AD 


<r/47 




C^A 






SNA 


CLA 




JMP 


0KF3 




PIB 




F ,< ' , 


CLA 






JMP 


CIFJ 


/ 






n^r-i, 


IS?' 


STKS 




JMP 


I ,*4 




IS2? 


LOOP 




JMP 


ClFl-1 




JMP 


I XRMF 



/ALL FIELDS IF 
/ALL DHNE IF i) 



/TEST RMF 
/FILLD 2 



/'^jn PI fj.^ IMHI'^IT PI 
/RFTLIRNi f (^OM Lnc,3 



/LRROR IF SKIP 

/IR OR SF FAILFD. C(AC)=C( IB) 

/ALL FIELDS IF kO 
/AIL OOnE if 

/TEST PM^ 

/FILLU 3 



/\n PI 0*^ INHIPIT PI 
/RFTliRM -ROM L0C,3 



/ERROR IF SKIP 

/S^ OR IP FAILFD, C(AC)=C{IB) 

/ALL FIELDS IF 
/ALL DONE IF 
/TEST RMF 



niF4 
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1000 



l''?0 


6242 


1^01 


6P'0l 


l'^02 


7000 


1003 


5204 


11^04 


7402 


l'^05 


6234 


1^'86 


1055 


1^'07 


7040 


i^^in 


7650 


if'll 


5216 


lin? 


6234 


1> 13 


7402 


1014 


72043 


i:-!*^ 


5200 


rH6 


2031 


r'i7 


5?23 


1-2:^ 


2027 


l''^2i 


5442 


l/'22 


53l2 


1"23 


6252 


lf'24 


6001 


1^25 


7000 


lf'26 


5227 


1^27 


7402 


l-'-3!'! 


6234 


li^31 


1056 


1^3? 


7040 


1033 


7650 


1H34 


5241 


1^35 


6234 


1?36 


7402 


lf^37 


7200 


1041?! 


5223 


I'^n 


2^31 


1042 


5246 


1043 


2027 


ir»44 


5442 


1'7)45 


53i2 


1046 


6262 


1047 


6001 


11^50 


7000 


1051 


5252 


1052 


7402 


15153 


6234 


1054 


1057 


1!^55 


7040 


1056 


7650 



/pnp-e, 


,81 txT.MLM. 


« 1 /i 




/ 




C I F 4 , 


CIF 40 




ION 


■■ 


NOP 




JMP .♦I 


£35 , 


HLT 




RIB 




TAD K7737 




HMA 




SNA CLA 




JHP 0KF4 




RIB 


E3?» 


HLT 




CLA 




JMP CIF4 


/ 




OK^'A, 


ISi' STKS 




JMP CIF5 




ISZ LOOP 




JMP I KCFi 




JMP TRMF 


/ 




C 1^5. 


CIF 50 




ION 




MOP 




JMP ,*l 


£i^, 


HLT 




PIH 




TAD K7727 




CMA 




SNA CLA 




JMP 0KF5 




WI8 


E34, 


NLT 




CLA 




JMP CIF5 . 


/ 




n<!-5, 


ISi STKS 




JMP CIF6 




1S2 LOOP 




JMP I KCFl 




JMP TRMF 


/ 




CIF6, 


CIF 60 




ION 




MOP 




JMP ,+1 


E33, 


HLT 




^^IB 




TAD K7717 




CMA 




SNA CLA 



/FIELD 4 



/NO PI OR INHIBIT PI 
/JMP TO HERE FROM LOG, 3 



/AC MUSy BE 

/IB OR SF FAILED. C(AC)=C(IB) 

/ALL FIELDS IF 
/ALL DONE IF 
/TEST RMF 
/FIELD 5 



/NO PI OR INHIBIT PI 
/JMP HFRF FROM LOG, 3 



/ERROR IF SKIP 

/IB OR SF FAILED. C(AC)=G(I8) 

/DONE WHEN SKIP 
/512 VIMES IF SKIP 
/TEST RMF 
/FIELD 6 



/NO PI OR INHIHIT PI 
/JMP HERE FROM LOG, 3 



/TO SKIP IS TO ERROR 
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l'^51 5?A4 
l?f>^, 6234 



JMP 0KF6 
RIB 
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1^61 


7402 


1^6? 


7200 


]'^63 


5?46 


1^64 


2031 


lf-65 


5271 


l'^66 


2027 


1.46 7 


5442 


1070 


&3i2 


1?71 


6272 


1^72 


6i?01 


li^73 


7000 


1?74 


5275 


11^75 


7402 


1^76 


6234 


1^77 


1351 


1I0(^ 


7040 


1101 


7650 


1102 


5307 


1103 


6234 


1104 


7402 


1105 


7200 


110ft 


5271 


1107 


232 7 


lllPi 


5442 


1111 


53i2 



E36, 


CLA 






JMP 


CIF6 


/ 






0KF6, 


ISZ 


STKS 




jMP 


CtF7 
LOOP 




ISZ 




JMP 


I KCFi 




JMP 


TRMF 


/ 






GIF 7, 


CIF 
lOM 
MOP 


70 




JMP 


.♦1 


Fi7, 


HLT 
RIB 






TAD 


K7707 




CMA 






SNA 


CLA 




JMP 


0KF7 




RIa 
HLT 




E3>^ 






CLA 






JMP 


CIF7 


/ 






0<F"7. 


ISZ 


LOOP 




JMP 


I KCFi 




wMP 


TRMF 



/IB OR SF FAILED, C(AC)=C(IB) 

/SEE IF ALL FIELDS 
/ALL DONE WHEN SKIP 
/TEST RMF 
/FIELD 7 



/NO PI OR INHIBIT PI 
/RETURN HERE FROM LOG, 3 



/ERROR IF SKIP 



/IB OR SF FAILED, C(AC)sC(I8) 



/DONE IF SKIP 
/TEST RMF 
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1112 

iii:^ 

1114 

1115 
111^ 

1117 
lliii^ 
1121 
112? 
1123 
1124 
112'> 
1126 
1127 
ll3n 
1131 



4423 

1040 
3322 

1322 
1046 
3322 
7040 
3010 
6?01 
3410 
1010 
7040 
7640 
5323 

2031 
53i5 



/ 

/TEST IN 
/FROM EA 
/FIELU T 
/EACH TE 
/IMOICAT 
/FIELD, 
/COMTAIN) 
/WILL CO 
/HALTS A 

/:4HICh 

/rfFFOREH 

/ 

/ 

/SfTUP F 

/ 

TRMF, 



TERRUPT INHIBIT 

CM FIELQt REFER TO HEADING TITLED "EXTENDED 
EST ROUTINE.., THIS ROUTINE IS PLACED IN 
STED FIELD AT THE ADDRESSES SPECIFIED, THE 
ED ERROR HALTS WILL BE IN THE EXTENDED 
PRESS COnT, to recover, ONLY 1 FIELD WILL 
THE ROUTINE AT ANY ONE TIME, OTHER FIELDS 
NTAIN ALL0'S, the ROUTINE IS REPLACED WITH 
FTER COMPLETION, THE PORTIONS OF THE FIELD 
NOT CONTAIN THE ROUTINE ARE SET TO 0000 
AND, 



lELOS TO TEST, POINTERS, ETC,, 



jMS I XSTKS 
TAD KCDF 
DCA ,+6 
TAD ,+5 

TAD K10 
DCA ,*3 
CMA 

OCA 10 
CDF 00 
DCA I 10 
TAD 10 
CMA 

S^A CLA 
JMP ,-4 
ISi STKS 
JMP TRMF+3 



/READ SR9^ii 
/6201 



/PLACE 0'S IN EACH FIELD FROM 
/LOC, TO 7777, 
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11 i^ 


4423 


113.3 


104 


1134 


104 6 


113^ 


3336 


1136 


6201 


1137 


1^-^36 


1 1 4 ;■' 


3.^27 


1"^ 41. 


1?37 


114? 


3427 


1143 


2031 


11,44 


7410 


1145 


5350 


1146 


1336 


114 7 


5334 


ll^'^ 


6201 


1131 


6" 41 


113? 


4422 


1133 


1^51 


11-34 


3^27 


1133 


1^6 7 


1136 


3070 


1137 


44?3 


3 16-^ 


1040 


1161 


1046 


116? 


3371 


1163 


1041 


1164 


1046 


li65 


3372 


li66 


1372 


1167 


3443 


11 70 


4425 


1171 


6211 


117? 


62i2 


1173 


5374 


1174 


7?!00 


1175 


7402 


1176 


5371 



/MHkg P 
/L^'CAT 
/ 



Hnr, 



UT A HIT IN EACH FIELD I-N THE SAME 
ION AS E40, BELOW. 



SToMF , 



/ 

ST^F, 



t4^', 



JMS I XSTkS 
TAD KCDF 
VAD K10 
OCA ,+1 
CDF C10 
TAD KE40 
DCA LOOP 
IAD KHLT 
OCA I LOOP 
IS^ STKS 
SKP 

JMP ,+3 
lAD CHDF 
JMP CHDF-2 



CDF 
TSF 
JMS 
TAD 
DCA 
TAD 
DCA 
JMS 
TAO 
TAD 
DCA 
TAO 
TAD 
DCA 
TAD 
DCA 
JMS 



00 

I xTFlg 

K7707 

LOOP 

POINT 

K7S 

I xstks 

KCDF 
K10 
STDF 
KCIF 
K10 

STDF + 3_ 
STDF+i 
I XFD 
I XRANS 



CDF 10 
CiF 10 
JMp ,+1 

HOP 
HLT 

JMP STDF 



/READ SR 9-11 



/KE40 = ADDRESS OF E40. 
/SAVE TEMPORARILY 
/KHLT = 7402 (HLT) 

/DONE ALL STACKS WHEN SKIP 



/CHECK TTy F^jAG 
/GO SET IT 



/POINTER rOR K7700 TO K7766 
/READ SR 9-11 
/6201 
/10 



/6202 



/10 



/PUT TEST ROUTINE INTO FIEID X 
/FIELD 1 TO START WITH 
/SHqULD enter extended FIELD 

/after this jmp, hlt if not 
/error, pi fared 

/C(AC) = C( I .B. ) 

/repeat SAME TEST. 
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1200 



1?00 


6214 


1201 


7450 


12^? 


5206 


1203 


7402 


1204 


7200 


1205 


5500 


1206 


62l2 


120 7 


6244 


1210 


6234 


1211 


6202 


1212 


6201 


1213 


1470 


1214 


7040 


1215 


7650 


1216 


5226 


1217 


6244 


122^ 


6234 


1221 


7402 


1222 


7200 


1223 


6201 


1224 


6202 


1225 


5500 


1226 


1036 


1227 


7001 


I23n 


7041 


1231 


1000 


1232 


7650 


1233 


5240 


1234 


1000 


1235 


7402 



1236 


7200 


1237 


5500 


1240 


2031 


1241 


5246 


1242 


2027 


1243 


5645 


1244 


5511 


1245 


1155 



/ENTER HERE AFTER PI FROM EXTENDED BANK 



/OF SHOULD BE 000 
/ERROR IF SKIP 
/CHECK C<SF) 
/ACsCCDF) 

/REPEAT TEST 
/SET I.B, TO FIELD 1 
/I ,8, NOW EQUAL TO SF 
/READ IB 



/ERROR IF SKIP 



/ERROR RMF AND Pi WORKED, BUT 
/I,B, NOT CORRECT AFTER RMF. 
/ACsCCIB) 



/BACKUP A PAG£ ANq REPEAT 

/KE40=AOORESS OF £40 
/MAKE E40*l 

/COMPArE jO C<0) 
/SHOULO NOT SKIP 
/ALL OK SETUP FOR NEXT FIELD 

/ERROR, ALL WORKEDi BUT 

/C(PC) WAS NOT=TO E40+1 

/AFTER PI IN EXTENDED 

/FIELD, C(AC>sC(0),F0, 

/CHECK FOR PI NOT INHIBITED, 

/OR AUTO-iNDEX REq, 

/12 FAILING In the EXTE^DEO FIELD 

/BACKUP AND REPEAT 



/DONE ALL IF SKIP 

/DONE LOOPING IF SKIP 
/REPEAT ALL AGAIN 

/EXIT TO NEXT TEST 

/BACK TO LAST PAGE 



#1200 






/ 






ENTER, 


RDF 

SNA 






JMP 


.+4 


E41. 


HLT 
CL'A 






JMP 


I XTDF 




GIF 


10 




RMF 






RIB 






CIF 


00 




COF 


00 




TAD 


I K7S 




CMA 






SNA 


CLA 




JMP 


CKPC 




RMF 






RIB 




F4?, 


HLT 
CLA 






If^ 


00 
00 




JMP 


I XToF 


/ 






CKPC, 


TAD 
lAC 
CIA 


KE40 




TAD 







SNA 


CLA 




JMP 


,♦5 




TAD 





E43, 


HLT 







CLA 

JMP I XTDF 


/ 

/SETUP 


FOR NEXT FIELD 


/ 


ISZ STKS 
JMP ,+5 
ISz LOOP 
JMP I ,*2 
JMP I XFIB 
STRMF+4 
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1?4A 


7?4i^ 


1?47 


3?1^ 


1?5 1 


1500 


1^51 


3252 


JP-5P 


b2ll 


1^:35 


3410 


1?54 


1^1^ 


1?55 


7:'.4t^ 


1 >5?S 


7640 


1^57 


5253 


1?6'? 


6201 


1?61 


1500 


1?6? 


3263 


1?A3 


6211 


1?64 


1^37 


1?65 


3436 


1 -P6*> 


6-2 ^''1 



12(1 7 


151^0 


127'^ 


1046 


1271 


350^1 


yyT? 


1501 


12 73 


10 46 


1 '-? 7 4 


35nl 


1?75 


1501 


127^ 


33i6 


1277 


2^70 


l30n 


4321 


13^1 


5533 



/ 

/h! 
/ 



T LAST TESTED FIELD TO ALL '-S AND PyT A 
T IN *^ESPECTIVE ADDRESS OF F4M 



cla cma 

OCA 10 
TAO I XTOF 
aCA ,+1 
CDF 10 
DCA I 10 
TAD Its 
C>1A 

S£A CLA 
JHP ,-4 
CDF i^0 
TAO I XTDF 
DCA .+1 
CDF 10 
TAO KHLT 
DCA I KE40 
CDF ?!0 



/CDF X0 AT STQF 
/Fl TO START WiTH 

/CLEARD IF SKIP 
/CDF XC^ AT STDF 



/=7402 (HLT) 

/KE40SADDRESS OF E40 
/RESTORE or 



/ 

/I •■ 
/Jf' 
/ 



CREMt^^gf CDF ANq cIF IOT'S AT STDFi STDF + 1 
MLXT FIELD, 



UO I XTOF 
VAD Kl?! 
iOCA I XTOF 
TAD I XTOFl 
TAO K13 
OCA I XTDFl 
TaO I XTDFl 
OCA EXFD 
Mi K7S 
JMS TRANS 
JiP I XTDF 



/CDF X?) AT STDF 
/Clf- X0 AT STDF 



/PUT ROUTINE IN NEW FIELD 
/TEST NEW FIELD 



4/30/68 13:24,44 PAGE 18 

/EXTF-NOED FIELD TEST ROUTINE 
/ 

/THE FOLLOWING INSTRUCTIONS ARE PLACED IN 

/EACH EXTENDED FIELD TESTED, THE NUMBERS IN THE 

/COMMENTS FIELD CORRESPOND TO THE 

/MEMORY LOCATIONS IN THE TESTED FIELLD, LOCATIONS 

/h THRU 11 ARE USED FOR AN ERROR ROUTJNE 

/IM CASE FIELD IS NOT ENTERED AFTER AN 

/IMTERR-UPT, THE EXTENDED FIELD SHOULD BE 

/ENTERED AT .LOCATION £40-1 WHICH CORRESPONDS 

/TO F40-1 IN FIELD 0. 

/ 

/EVTENDED FIELD I NSTRUCTI ONS t 

/ 

1302 0000 ExFLDi ^ /0 

1303 1P00 TAD /I 

1304 7450 SNA /IF LOC NOT =0 PI DIDN'T 

/ENTER FIELD 

1305 5312 JMP ,+5 /3 

1306 7402 F:44, HLT /4, INTERRUPTED TQ THIS FJELD 

/INSTEAD OF FIELD 0,C(AC)=C(0) 
/WHICH SHOULD BE E40+1 
/IF NOT, CHECK LOC, 7777» IT 
/MUST = 5412 (JMP I 12) . 

1307 7200 ClA /5 
131^ 3000 DCA /6 

1311 5420 JMP I 20 /7, C(20) -E40 

1312 7402 F,4'^, HLT /10, THE JMP I l2 AT LOC, 

/7777 WAS NOT EXFCUTEDi 
/OR INTERRUPT FAILED, IF 
/NO INTERRUPT, LOCATION 12 
/NOW CONTAINS INSTEAD 
/OF ADDRESS E40, 

1313 5307 JMP ,-4 /H. REPEAT IN THIS FIELD 

1314 1175 E40 /i2, AUTO-INDEXS TO E40+1 

/IN F IF THE JMP I 12 

/WORKS, 
/LOCS. 13 TO 17 ARE ALL 0'S 
/ 

1315 1175 E40 720, EQUALS E40 IN F0, 

/ 

/IOCS, 21 TO E40^2 ARE ALL 0'S 

/ 

1316 6212 EXFD, CIF 10 /FIELD 1 TO START WITH , 

1317 6001 ID^ ^LDC, E40. SEE SYMBOL TABLE 

/FOR E40. 
/LHCS, E40+1 TO 7776 ARE ALL 0'S 
/ 
i320 54.2 JMP I 12 /7777, Pi SHOULD OCCUR, 

^ ^ /AFTER THIS INSTRUCTION, 

/TO FIELD 0, 
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1321 


f 


1322 


1103 


1323 


3301 


1324 


1104 


1325 


3002 


1326 


1102 


1327 


3010 


133!^ 


3011 


1331 


1071 


133? 


3fl0^ 


1333 


1500 


1334 


3337 


1335 


6201 


1336 


1410 


1337 


6211 


1340 


3411 


1341 


2^00 


1342 


5335 


1343 


1337 


1^44 


3347 


1345 


6201 


1346 


I4i0 


1347 


62ll 


1350 


3505 


1351 


6201 


1352 


1337 


1353 


3355 


1354 


1410 


1355 


6211 


1356 


3435 


135 7 


6201 


136(^ 


1337 


1361 


3363 


1362 


1410 


1363 


6211 


1364 


3436 


1365 


6201 


1366 


1337 


1367 


3371 


1370 


1410 


1371 


6211 


1372 


3447 


1373 


6201 


1374 


5721 



/ROUTINE TO 


TRANSFER 


/ 




TRANS » 




TAD 


KJMP 


DCA 


1 


TAD 


KNTR 


OCA 


2 


TAD 


KXFLD 


DCA 


10 


DCA 


11 


TAD 


K7766 


DCA 





TAD 


I XTOF 


OCA 


,♦3 


CDF 


00 


TAD 


I 10 


T'^FLD. COF 


10 


OCA 


I 11 


IS? 





JMP 


,-5 


TAD 


TRFLD 


DCA 


.*3 


CDF 


00 


TAD 


I 10 


CDF 


10 


DCA 


I K20 


CDF 


00 


TAD 


TRFLD 


DCA 


.♦2 


Tad 


I 10 


CDF 


10 


DCA 


I KE40M 


CUF 


00 


TAD 


TRFLD 


DCA 


,*?- 


TAD 


I 10 


■CDF 


10 


DCA 


I KE40 


COF 


00 


TAD 


TRFLD 


DCA 


,*2 


TAD 


I 10 


CDF 


10 


DCA 


I K7777 


CDF 


00 


JMP 


I TRANS 



TEST ROUTINE TO PROPER FIELD 



/KJMPsJMP I 2 
/IN FIELD 

/KNTR = LOC, ENTER 
/OF FIELD 

/KXFLD = LOG, EXFLD 



/1-1« DECImAL 
/SAVE 
/CDF X0 IN STOF 



/Fl TO START WITH 

/PUT IN EXTENDED FIELD 
/DONE LOCS 1 TO 12 IF SKIP 



/PUT £40 IN LOC. 20 



/PUT CIF X0 IN E40-1 



/ION TO LOC, E4( 



/PUT JMP ! 12 IN 7777 
/EXIT 



A/7,id/bP, 13:24, ^15 



PAGt 2^ 



ll«,> 



1 4 -> .T 

1 ■! f' 1 

1 4 ■'■ '\ 

1 '^ ~ '- 

1 4 - A 

1 ^. : -7 

1 4 1 '•' 

1 <; 1 ? 

Wl 1 X 



1 "i,-: 



1 '1 ;- " 
1 :^-, 



1 ■' b '■' 
5-. ?7 
■"^P-i 1 



S ," (1 i 



(ST SF WITH AN HHV lOT. AN I NTERRllPT ' I N FIELD ^ IS C^LaTE'IJ, kV^\^^ 
MiCH, THE DF AM(j IP REGISTERS ARE SET To FIELD 1. 
"L SF SHOULD CONTAIN FIELD m. THE TEST 

hEN' MA*^ES sure the IP IS CLEARED. ThF N SET BY ISSUING AN RMF, 

nLLOWEO BY A JMp I k700v3. IF THE IP IS CLEARED, THF JMP GOFS TO 700/) IM riFL^ 
F THE IH AMD SF ARF INCLUSIVE OR'D, THE JMP GQFS Tn 7/)Pii4 JM FlFL'T 1. KH\) 
HALT OCCURS TH^ire;. RESTART FROM 140/ AFTER AN LRROR. THF TEST IS LOnpFlJ 
12 TIMES, 

/SEE IF FLAG IS SET, 
/SET jT 

/7P)00 

/UF=FIFLD 1 
/HLT 

/ima, fIeLd i = hlt 

/DF = 

/JMP2 = JMP I KKLiJ^ 
/70Ki?i, FIELD = JMP I KFLOvO 
/^FLnk!l = LOC, RTf'N 

/KJMP=JMP I 2 

/KRTN=LOC, E45A+2 



/EMARLE PI 

/ERROR Nn f'l 

/RFPEAT TEST 



SF!B, 


TSF 






JMS 


I XTFLr 




TmO 


K7;Hn5 




DCA 


LOOP 




COF 


It 




I aO 


KHL T 




JC^ 


I K 7 ,1 f 




CLJF 


?0 




TaO 


JM!;'2 




:iCA 


I K/CiiVl 




TAO 


K JMP 




DCA 


1 




TAO 


KRTfvi 




."1CA 


■? 


/ 






/-^G^^f 


TtST 




/ 


1 U ^' 




F '. '■• A , 


HLT 






Jf^P 


^F U* 



1 ;j ^ b: 4 ^ , ' 



fTUH-v -tLRL Af^TFr PI 

c; I.. A 

"!F w 

RV.r 

JMP I K 7 '.J ;,i [I 



/qFsFIfLiU 

/1B=FIFL01 

/IR SHnuLD = FIELDi^ 

/IF SHOULD=riEi D0 



'>i T '- N , 



JMP T A : M n 



/LOOP 



/l^lORKEf^ OK 

/.JONF, GO TO NEXT TF'^T 
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1 -' 3 ? 

1 '^ i .' 

1 '^ J 4 

1 ^^ .5 ^ 

1 4 ji / 

1 '5 4" 

1 ■': 4 1 

1 '■* 4 V 



1 4*4^ 

] 4 4^^ 

1.4 47 
145^^ 
1451 
1452 



14^,^ 
1454 
1 4 5 s 
i_d5^ 
T 457 
1 /I C-, n 

1 " .; '■' 
14 6."? 
14 64 
14 65 
1 466 
467 
14 70 



6 ? v^ 
1-'51 

44^:^ 

1 'A n i". 
,5 ? 'i '^■ 

1 ■'' 4 6 
j V r. 6 



7," 4-' 

6?ll 
34li^ 

2ncr/ 

524 7 

6201 



1316 
3/5] .1 

i;i/3 
3^n"y 

1 3]6 

3i:i 1 

3cf65 
6 2 '/ 1 
1410 
6?ll 
3411 

2 K «? 
5263 



/ 

/ 

/TK 

/ f ■; 

/ }■■ 
/f I 

/►. V 

/i;t 
/ I - 

/ ! 
/ 



ST ALL AUTO-lNUfX REGISTERS IM EACH EXTENDED FIFLn. 
EMIICAL TEST ROUTINES ARE PERFORMED FROM EACH FIELD. 
D tRROR HALTS OCCUR IN THE FIELD CURRENTLY RUNNING 
L kOUTINE, press CONT, TO RESUME TESTING. EACH 
ELu CONTAINS ALL ^^ ' ?^ EXCEPT FOR THE AREA OCCUPIED 

THt TEST ROUTINE. FIELD IS RE-EnTERED 
TEN EACH TEST, AND THf NEXT SEQUENTIAL FIELD 

TriEN L^JTERED. REFER TO THE hF.ADING "AUTU- 
Uf X TEST" f',)R THE SEQUENCE OF OPEPATIONS. 



/LOOP COUNTER 
/READ SR 9-11 
/6201 



CiJF 


f10 


TAD 


K77fe37 


i)CA 


LOOP 


JMS 


I xstks 


TAD 


KCDF 


D C A 


DEN 


TAD 


DEN 


ta;j 


Kl/1 


DC A 


DENJ 



/INCRE'^L'^iT DF 



/ 
/ 



EAr^ 0^^E FIELD TO ? 
CMA 

D C A 1 (/: 

DC A '^ 

CDF 10 

DCA I 10 

\Si ?> 

JMP ,-2 

CDF 0^ 



V': PUT TEST ROUTliNiF IN I HE EXTENDED FIELD 



/USE LHC, 7> FOR A COUNTER 
/F lELU 1 TO START WITH 



TAD OOAUTO 

DCA 10 
TAQ K7 744 

DCA f1 

TAD DOAUTQ 
DCA 11 
TAD DFN 
DCA , ♦ 3 
CDF C10 
1 A D I 10 
CDF 10 
JCA I 11 
ISZ -A 
JMP MOVE 



/IST LOC. OF ROUTINE MINUS 1 
/SOURCE 

/o2a DECIMAL 
/USE LOC. ? AS COUNTER 

/DESTINATION 
/CDF X!^ 



/FIELD 1 TO START 
/MOVE WHEN SKIP 
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/^nw SET AUTn-I REGS 10 TO 17 TO 7777, 
/ 



14 71 


1066 


14 7? 


3000 


14 7-^ 


1045 


14 74 


3f^l0 


147'? 


70 4'^ 


14 76 


3410 


1477 


2000 


1 '^f'jn 


5275 


l^'^i 


7 il 4 


iSf? 


3447 


l^P3 


f>2l^ 


1 'j 4 


1041 


1505 


3306 


I'^flfS 


62l2 


15 07 


47l5 



151P 


2031 


1511 


524VJ 


1512 


2027 


1513 


5235 


1514 


5353 



/ 

/E^iT^H 
/ 

r, -I T 1 



TAD 
OCA 
TAD 
DC A 
CMA 
DCA 
ISi 
JMP 
CMA 
OCA 
RUF 
TAD 
OCA 
GIF 
JMS 



K7770 



K7 

10 



10 



I 

.-3 



I K/777 

<CIF 

.♦1 

10 

I FILDX 



/-8 DECIMAL 
/7 

/7777 
/IP) TO 17 = 7777 WHEM SKIP 



/PUT 7777 IN LOC, 7777 OF EXTEMQEO FIELD 
/READ O.F, 

/6202 

/FIELD 1 TO START 
/ENTER EXTENDED FIELD 
/515 OCTAL LDCS, BEFORE THE 
/TAD I 10 INSTRUCTION. 
/THIS IS A TEST OF THE 
/DEFER BIT, 500 US DELAY 



FIELD FROM EXTENDED FIELD HERF . 

ISj? STKS /DONE ALL WHEN SKIP 

JMP NiWUF /SETUP FOR NEXT 

ISi? LOOP /ALL DONE IF SKIP 

JMP NEW0F_3 /REPEAT All 

JMP CSRB /CHECK SR 8 



1515 1001 



FILDX. DOAUTO-515 
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1516 



5-6 



1517 


7200 


152?1 


1410 


1521 


7 4413 


152? 


7402 


l''?3 


I'^H 


1^24 


7 4 40 


1525 


7 4 '22 


1^-26 


141? 


1527 


744t:l 


1535^ 


74M2 


I'^il 


I4i3 


1532 


7 4 40 


1533 


74^2 


1534 


I4l4 


153'^ 


7440 


1536 


7402 


1537 


1415 


1540 


7440 


l'^41 


7402 


1S4? 


1416 


15 43 


744f5 


1544 


7402 


1545 


I4l7 


1546 


7440 


1547 


7402 


1550 


6201 


1551 


6202 


155? 


5310 



/ 

/ 

/ T r 

f L ■■■ 
// ' 

/ ;.; "' 

/A-' 
/ IX 

/ r^- 

/>,::< 

/ 



AUTO- INDEX TEST 

L nOuTINE *^■!LL BE PLACED \>\ THE. SAME RESPECTIVE 
CATIONS INJ EACH EXTENDED EIELD. ANY ERROR 
A! IS ^ILL OCCUR IM THF EXTENDED FIELD.- PRESS 
NTIMUE TO PROCEED WITH TESTING, THE INDEX 
GISTEKS 10 TO 17 INITIALLY CONTAIN 7777, AND 
E aUTO-INDEXED TO 0/'0ri BY A TAD I INSTRUCTION, 
riALT OCCURS IF THE REG. IS NOT INCREMENTED TO 3. 
E. sAD I WOULD HAVF Thtn REFFRFnCED LOC. 7777, 
V:.» CUUTaINS 7777. 



no'UTu. . 

ClA 

TAD I 10 

S2A 
F46, HLT 

TAD I 11 

SzfA 
r47, WLT 

TaD I 12 

'iik 

L4«, HLT 

TAD I 13 

SifA 
F4y, HLT 

TAD I 14 

S2A 
E-^% HLT 

TAD I 15 

S?A 
E51, HLT 

TAD I 16 

S£A 
E5?, HLT 

TaU I 17 

S£A 
E5.^, HLT 

CDF 00 

CIF 00 

JMP GOTO0 
/E^D OF TE'iT ROUTINE 
/ 
/ 



/THIS LOG. IS NOT MOVED TU 
/THE EXTENDED FIELD, 



/ERROR, INDEX REG, 10 FAILED 

/INDEX REG, 11 FAILED 

/12 FAILED 

/13 FAILED 

/14 FAILED 

/15 C" A I LED 

/16 TAILED 



/17 FAILED 

/SET DF TO FIELD 

/SET I,B. TO FIELD 

/EXIT TO FIELD 
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/n-tCK S^ H, W AIM 81 IS hFlNG USED SR 8 MUST RE 
/'V^ A 1. OTHF.R/JlSE, ?' . 



1>5"^ 


7^e^4 


IbbA 


;m 6 


1 '"^ b ^ 


7 6 4i:'^ 


1 ^ r> f > 


576ft 


1 =-> S 7 


P^P7 


I'^b;. 


1357 


1'^61. 


6 i'" 4 6 


I'^t?. 


6?4l 


1^6,^ 


5362 


1 Sh 4 


5765 


^'^65 


n H '^ 


1S6*« 


1 h i^ 



/ 


LAS 








AND 


K10 






SzlA 

JMP 


CLA 

I XHEM 


/NEXT TEST 




AMD 


7 




'^ t ! L . 


TAD 
ILS 
TSF 


,-1 


/RIHG HELL 




JMP 
JMP 


,-1 

I XHGN 


/START OVER AT 2^^ 


/ 


BEGIN 




XM!- M . 


•siOMEM 
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i_ 6 .^ 1 
1 ^ ■<:' 4 

1 '^ 1 '• 
I '^ 1 1 
1 ^ ] :^ 



7 '^ i-H 
7041 

745i'5 
^5 f^ 5 2 

36^1 



1 '' 1 :^ 


7^04 


1614 


0^45 


l^l-^ 


7fl01 


1616 


7100 


1^17 


7306 


x^2v- 


7^104 


1^21 


3^13 4 


1^2? 


1^33 


1^23 


7;;,4l 


1^24 


3033 



/ 

* 1 

/ 

/'I 
/I 
/tt 
/w 
// 

/H 

/r, 
/ 



'^^0 

fTfHE)\jCL ALL 4k FIELDS NOT PRtSENT, IF 32K 
'- PRFSLNT, THE TEST IS BY-PASSEO. AND PROGRAM IS 
^STARTED AT 2k30, EACH FIELD NOT PRESFNT IS 
FFEhfENCED BY THE PROGRAM WITH JMP, DCA AND TAD. 
fHl- PROGKAM MUST CONTINUE IN SEQUENCE/ THE TTY 
rLL WILL SIGNAL A SUCCESSFUL TEST, ANQ THE PRO- 
-AM IS THEN RESTARTED AT 200. 



■LM 



CLA 

TAD K7770 

DCA LOOP 

LAS 

AND <7 

CIA 

TAD K7 

SNA 

JMP I xbell 

DCA MOSTAK 
OCA I XLLL 



LAS 

AND <7 

lAC 

CLL 

RTL 

RAL 

DCA MOFLD 

TAD NOSTAK 

CIA 

OCA NOSTAK 



/TEST LOOP COUNTER 
/READ SR9-11 



/SUBTRACT MAX, POSSIBLE 

/3?K PRESENT, CAN'T TEST 
/SAVE NO, MISSING 
/CLEAR THE TLS lOT AT 
/BELL+1 To PROHIBIT 
/FALSE INDICATION. TLS 
/IS RESTORED LATER WRONG 
/ENTRY FROM NQN-EXISTENT 
/MEMORY MAY CAUSE A 
/HANG*IJP AT BELL + 2 AND +3. 
/» OF FIELDS PRESENT 

/♦I TO GET 1ST MISSING 
/POSITION TO AC 6-8, 

/IST MISSING 
/# STACKS NOT HERE 

/USED AS COUNTER 
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1 '^ d '-^ 



1^37 

^ iS ^ :T 
1 ^ '^ 1. 

-1 A 4 4 

1 ^ -m 



1 '^'j^ 

1*''57 

1 ^ f) '' 



1J^^4 

1^^34 
33i^7 



1 (^ 3 :^ 1 '-^ 3 3 

1 ^ 3 -3 7 f/M 1 

1 - 3 S 7 '^ 1 '^ 

1 6 3 '^ 7 6 ^ i5 



5?57 
'♦?6i 

?^'l3 3 

2;"p7 

5 ^1 S >^' 
1 '^ t, 3 

;s^'? 1 



1 -s T ^ 1 -^ ^1 3 

l^-pl. l'36l 

1(^02 1560 

16!?3 6^46 



1307 
ltM6 
3 3,?! 7 
43;36 
5241 



•/601 
/MISSING STACK 



FAD KCDF 
TAD NOFLD 
DCA CDFiJS 
TAD KCDF 
TAD NOFLD 
DCA CDF IS 



SFF IF AN ODD OR EVEiM NUMREH IS MiSSIMG 





TAD 


NOSTAK 




CIA 






f^AR 






SfsJL 


CLA 




Ji^P 


P0S*3 




JMS 


ALLi3 


(' vj '^ T K , 


IS2 


NiOSTAK 




JriP 


POS 




IS^ 


LOnP 




JMP 


I X N M 




TAD 


TTH 




ncA 


T XE.LL 


/ 


. 1 M f '• 


I XBELl 


y ,if:M , 


\iOMfc.M + 3 


Xtt L. 


d£LL+l 


V -^ LL, 


^fUL 


Tf-, 
1 


TLS 




P 'I ^ , 


TAD 


CDFIS 




TAD 


K10 




jCA 


CDFIS 




JMS 


ALL! 




JMP 


CNSTK 



/L=l. FIRST READ 0,S, THEN ALWAYS 

/ALL I'S 

/L=0» ALWAYS READ ALL I'S 
/READ ALL FROM iST 

/DONE ALL MISSING IF* SKIP 

/READ ALL I'S FROM HERE ON 

/DONE LOOPING IF SKJP 

/REPEAT 

/RESTORE TLS 
/RING HELL 



/DF PLUS 1 



/HEAD ALL I'S 
/CHECK DONE 
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1 '^'St 
1 '^ ^ ^ 
1 ^6S 

1 ^ 7 '^ 

1 ^ J < 
16/4 
1 '=' 7 ^> 



1 / •■? 



? 

6 2 II 1 
7240 
3^1 ^^ 

iflll 

3 4 1 J 

2i'02 
527v^ 
1411 

5301 

i-^u 



2? 02 
52 74 



/ 

/^^■UTINE TO READ ALL 0'S, 

/ 

Al I 1^1, 

Ci]r0S, CDF 00 

CLA CMA 

DCA 10 
CMA 

JCA 11 

OCA 2 
CMA 

QCA I 1^ 



E54, 



\%i 2 

JMP ,-3 

TAD I U 

SNA CLA 

JMP ,+3 

TAD 11 
HLT 



IS2 2 

JMP F54-4 



/SET DF TO 1ST MISSING 

/10 AND 11 ySEn FOR ADDRESS 

/USE AS CQUNTEP 



/WRITE I'S INTO NQNI-EXIS- 
/TEMT FIELD, 



/READ NQN-EXIST. FIELD 
/SHOULD = 0000 



/ERRgR. Am E^ISTImG FIELD 
/WAS REFERENCED. C(AC)= 
/ADDRESS REFEREMCED 

/READ NiEXV 



i7:u 

1 7 ''5 



5^61 



^l:s 



CUF 00 
GIF 00 
JMP I ALL0 



/EXIT 
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\7Jn 
I7v17 
171' 
l7ll 
1 71? 

m-^ 

1714 

171S 
1 7 j. ft 
1/17 
172^ 
1 7 ;^ 1 
17;^P 
172^ 
1 7?^ 
1 7'^S 

172^^ 
1 727 
173' 

17^1 

1 .' s ' 
J / .S S 



y i^ t) 

7? 40 
3?lW 
7 i-i 4 1^ 

3011 

341^- 
2 f ^ Z <? 
b3l5? 
1411 
7 r^ 4 f/ 

7450 
5327 

7340 
7 4 3 2 

72i^u 

2'i;^2 

5 3 2^ 

6 ^ V' I 

b> 7 1' ft 



/^nuTIME TO 


READ ALL I'S 


/ 






ALLl, 


i5 




C0F1S» 


CUF 


00 




CLA 


CMA 




DCA 


10 




CMA 






QCA 


11 




DCA 


2 




DCA 


I 10 




ISi 


2 




JMP 


.-2 




TAD 


I 11 




CMA 






SNA 






JMP 


.+4 




CMA 




E57, 


HUT 
CLA 






IS2 


2 




JMP 


E57-5 




CDF 


00 




CIF 


00 




JMP 


I ALLl 



/SET OF TO MISSING FIELD 

/10 AND 11 USED FOR ADDRESSING 



/USED AS COUNTER 

/WRITE 0'S 



/READ 1?S FROM NO MEMORY 



/7777 NOT READ. C(AC)= DATA 
/READ, ceil)" ADDRESS, 



/EXIT 
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1734 


0000 


173'=5 


7604 


1736 


0045 


1737 


7041 


I74?l 


3031 


1741 


5734 



1742 


0000 


1743 


7?00 


1744 


0015 


174^ 


1344 


1746 


6046 


1747 


6041 


1750 


5347 


1751 


7200 


175? 


5742 



/Rf AD 


SR9-11 


/ 




NSTKS 


, 




LAS 




AND K7 




CIA 




DCA STKS 




JMO I NSTKS 


/ 




/St"T ■ 


FTY FLAG 


/ 




TFLG, 







CLA 




AND 15 




TAD ,-1 




TLS 




TSF 




JMP ,-1 




CLA 




JMP I TFLG 



/EXIT 



ThFkf awf njo errors 
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1 '. Bi 



^ui J 


16*^1 


ALI 1 


\7"b 


^iJ\^''-> 


n2i''0 


MLI L 


15^0 


cnr 


6201 


C'U i!'^ 


1662 


CMFlS 


17'?7 


cnnK 


1136 


cif 


62?2 


n i F 1 


fVCM 


C I F 2 


VI 7? 7 


cir,^ 


^7^52 


r i r ■^i 


1000 


ci^b 


l£a23 


CIF6 


1046 


CiF7 


lii)7l 


n \ ,> c 


1226 


C ■■•) "^ "' K 


1641 


CS'^H 


1533 


HAT 


O'032 


ncAi 


n6^'l 


riF 1 n 


'•i^(,'7 


lU " 


1 44(^ 


in :■! 


■^2^2 


nFi 


P226 


\^f? 


f^237 


DF3 


•'.^25 4 


nF4 


^265 


nF5 


?3?2 


DF6 


^313 


nF7 


^211 


0,AUTo 


1516 


DONE ?< 


1703 


ENTLR 


1?P0 


EXFn 


1316 


EXFi.n 


1302 


El 


0206 


EIP? 


f^35l 


Ell 


['5360 


El? 


tM10 


El? 


t^4l7 


E14 


0427 


E15 


0436 


E16 


3452 


E17 


P1461 


E18 


'!l4 7l 


E19 


PI500 


E2 


5^217 


E2?' 


0514 


E21 


0523 


E22 


^^533 


E23 


;^54 2 


E24 


0653 
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M'^M 



TAH, L 



*■ ff^ 


T 7 1 l;l 


t. '' ^ 


-^71.7 


V il 


173 3 


F -^R 


074^ 


v:?j'^ 


!175 6 


^ i 


'^234 


E3i1 


;^76i> 


F'31 


1 ■;^ ^' 4 


F 5? 


ltil3 


F. ,S-^ 


10?7 


r.^4 


1036 


r3b 


1052 


F'3<^ 


10^1 


f:.s7 


1075 


E.:58 


11^4 


F4 


T245 


f:4-'i 


1175 


t:4i 


1?^3 


F4P 


1221 


F_4;^ 


1.2^5 


F44 


135^6 


F. 4 f> 


1312 


F ISA 


14?i'l 


F46 


1522 


F4 7 


1525 


E4R 


153<^ 


F 4 y 


1533 


E"? 


^262 


E5il 


1536 


E51 


1541 


E^? 


1544 


F53 


1.547 


Eb4 


1730 


F57 


1725 


E6 


^^273 


F7 


fi310 


E8 


^321 


F9 


0341 


FILUX 


1515 


GOTO? 


1512 


HfgTS 


2667 


IHSF 


fl656 


Id? 


2334 


IBl 


2343 


13? 


2422 


IB3 


P1421 


IFM 


2444 


IB5 


0463 


H6 


0506 


IB7 


2525 


IS?3 


00?1 


J^PI? 


2222 


JMP2 


2126 
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SYMHfiL TA 


BL(-,. 


KCHf 


-^04 


KCri 


f31042 


KCIK 


i-i;^4i 


Kt4? 


2236 


KE4")M 


PI035 


KFI [)M 


01P17 


KHI r 


(^03 7 


KJMP 


01^3 


K.gTR 


0104 


KHTN 


")110 


KXFin 


0102 


Kl 


1)044 


Kl!A 


^046 


K?.<?^ 


rii05 


K7 


0045 


K7S 


9\27d 


K7000 


'?!050 


K7707 


M05>1 


K 7 7 1 7 


M05 7 


K7727 


C1056 


K7737 


PI055 


K7744 


^073 


K7747 


0054 


K7757 


0053 


K776ft 


0071 


K7767 


3052 


K7770 


?0^6 


K7771 


0065 


K777? 


0064 


K7773 


0063 


K7774 


0062 


K777^ 


0061 


K7776 


0060 


K7777 


0047 


LOOP 


:D0?7 


MOVE 


1463 


MOF 


0030 


NEWOF 


1440 


NOFin 


0034 


NOMtM 


1600 


NOSTAK 


0033 


NSTKS 


1734 


OKFl 


0722 


nKF2 


0745 


0KF3 


0770 


0KF4 


1016 


0KF5 


1041 


0f<F6 


1064 


0KF7 


1107 


OKI 


0222 


0K2 


0250 


0K3 


0276 


0K4 


0324 
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SYM;^.'li_ TAfiLL 



(K'^ 


1362 


n\^ 


■1 4 4 


nK7 


:i5^2 


OKf^ 


:^544 


t^or^i 


T067 


PUS 


1654 


r:.]f 


6214 


H?i« 


6234 


RIF 


6224 


U ,■1 F 


6244 


^np^J 


142/ 


SFI s 


14^0 


sinF 


1171 


STKS 


0031 


STPMF 


ll^l 


TAOI 


0622 


TAUT') 


1432 


T F [. ■-) 


■•16 3 a 


TFH, 


1742 


Tr?A^S 


1321 


T-^Fi.il 


133 7 


T^Mt 


1112 


T in 


1653 


XAllTO 


•/026 


XBtL!.. 


1652 


XBG'^ 


1565 


XELL 


1651 


XFO 


0043 


XFI!^ 


?111 


XMFM 


1566 


XiMHM 


1650 


X?RANJS 


!^0?5 


XRMF 


0024 


XSTKS 


?023 


XTOF 


01^''0 


XTHFl 


0101 


XTFLG 


?I022 
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M; 



J ^P I • 


'1 ■" T 1 


] i^ ^ 


' vl ^ 1 


X r f-' 1 >'; 


n^P2 


XSTK^; 


-^4?, 5 


X ••; ^- ^ 


^ :' :' 4 


y W A g s 


n,, -.^^ 


X A i 1 I , 1 


' ',J 7 o 


L Cl '^ -^ 


'-:.0 7 


Njt' 


.'\1,<^ 


STks 


'--i.n 


HAT 


'/:'2 


''OS 1 AK 


'i(^.'i3 


K' F L n 


fi034 


Kt 4 jM 


^03^ 


Kt.4 1 


'■^03 6 


KHL ^ 


^1^37 


K [: n F 


ii?l4 


KC 1 1- 


:i;hi 


'^CF 1 


'^ -l 4 2 


<F n 


■1 /1 4 3 


<1 


.' M 4 


K/ 


"«f;» 4 3 


KIC 


V14 /, 


'W 7 7 ' 


1 / : / 


K/7 .M 


1 b J 


K ; 7 .:? 7 


' ' :-^ s 1 


K 7 7 6 7 


■■^asz 


K77b7 


■'0^3 


k;747 


:^i^54 


K / 7 5 7 


f).;^t,5 


^71 ?_7 


T055 


K7117 


^ifcJ^? 


K 7 7 7 ^ 


:>!06 


K7775 


30^1 


K7774 


^062 


K7773 


^0^3 


K 7 7 7 ? 


■^0 6'* 


K7771 


^'10^5 


K ; 7 7 ? 


''0*^6 


POINT 


!7I0A7 


K?"^ 


'•i^70 


K7766 


'^0 71 


K7744 


:^^'73 


XTDF 


'^1?0 


X T r^ F 1. 


^IP^I 


K X F L 


'U:^2 


K J M P 


::U C 3 


KiMT^ 


3104 


'<?.? 


'^l^b 


J M P ? 


:^lf'6 


KFlOC 


■^1P7 


K l^ T ,\! 


■^110 


X r I .:, 


mil 
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SY'-'HOL TAHLE 



Rtnu 


^2C'0 


nF"(7! 


?52?2 


Fl 


^2^'t> 


DF7 


?1211 


F2 


0217 


OKI 


'^222 


nri 


0226 


F3 


0234 


DFP 


0237 


E4 " 


0245 


OK? 


0250 


nF3 


("254 


F5 


!^262 


OF 4 


0265 


E6 


0273 


0K3 


1^276 


DF5 


03^2 


E7 


?i31.0 


DF6 


?'313 


E8 


^3?1 


0K4 


0324 


Irif^ 


'^334 


E9 


■;i34l 


IB1 


0343 


Fl? 


0351 


Ell 


?!360 


nK5 


03^2 


18? 


04P2 


El? 


0410 


E13 


!^417 


IB3 


04?1 


E14 


0427 


E15 


0436 


0K6 


0440 


164 


=71444 


E16 


0452 


E17 


0461 


185 


0463 


Eie 


3471 


E19 


0500 


0K7 


0502 


IB^ 


05^6 


E20 


0514 


E21 


0523 


IB7 


0525 


E2? 


0533 


E23 


0542 


0KB 


0544 


DCAI 


0601 


OFLO 


0607 


TAOI 


0622 


TFLD 


0630 


E24 


0653 
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SV^RnL TA6[_f: 



I M S V 


?1656 


HLTS 


0667 


ciri 


71704 


E25 


0710 


F26 


0717 


OKFl 


1^722 


CIF2 


0727 


E27 


0733 


F2R 


0742 


OKF'2 


0745 


CIF3 


0752 


E20 


0756 


F3P 


0765 


0KF3 


0770 


CIF4 


10?0 


E51. 


10K4 


E3? 


1013 


0KF4 


1016 


CIF5 


1023 


E33 


1027 


E34 


1036 


nKF5 


1041 


CIF6 


1046 


E3^ 


1052 


E36 


1061 


0KF6 


1064 


eif? 


1^71 


E37 


1075 


E3fl 


1104 


0KF7 


1107 


TRMF 


1112 


CHDF 


1136 


STRMF 


1151 


STDF 


1171 


£4? 


1175 


ENTER 


1200 


E41 


1203 


E4? 


1221 


CKPC 


1226 


E43 


1235 


EXFLD 


1302 


E44 


1306 


E45 


1312 


EXFD 


1316 


TRANS 


1321 


TRFLD 


1337 


SFIB 


1400 


E45A 


1420 


RTRN 


1427 


TAUTO 


1432 


NEWDF 


1440 


DFM 


1446 


MOVE 


1463 



4/30/68 1J:25.39 



PAGL 37 



SYHMOL TAbLE 



noToi' 


1510 


F ! i. 1.1 y 


1515 


nOAljTQ 


1516 


F4^. 


15?2 


F 47 


15?5 


e;4h 


1530 


F4g 


1533 


F501 


1536 


Ebl. 


1541 


F5V 


1544 


Fb:< 


154? 


nsps 


15=i3 


RtlL 


1560 


XBHM 


1565 


XMFM 


1566 


MQMEM 


16t^0 


CNSTK 


1641 


XNiOM 


1650 


VEIL 


1651 


V^FLl. 


1652 


TTP 


1653 


PO? 


1654 


A L L 


1661 


COF i^S 


1662 


Fb4 


17^0 


DOME?' 


17f'3 


ALL 1 


1706 


CUFIS 


17?7 


E37 


1725 


.vSTks 


17:?4 


TFLG 


1742 


CDF 


62^1 


CIF 


62552 


ROF 


6214 


RIF 


62?4 


RIP 


6234 


RMF 


6244 



